Option Explicit
Sub C_Sample015()
    Dim myRng As Range
    Dim myItr As Interior
    Set myRng = Range("A1")				'Nxs
    Set myItr = myRng.Interior
    myRng.Clear							'xs檺M
    'ǳƨ즹
    MsgBox "]wxs檺I"
    myItr.ColorIndex = 6					'wC
    'myItr.Color = RGB(255, 255, 0)			'HRGBȨӰw
    Set myItr = Nothing					'
    Set myRng = Nothing
End Sub
